;;;Authored by Lee Mac and posted to AutoCAD forums on 10-02-2013
(defun c:mlsleft ( / dic itm )
    (if (setq dic (cdr (assoc -1 (dictsearch (namedobjdict) "ACAD_MLEADERSTYLE"))))
        (while (setq itm (dictnext dic (null itm)))
            (entmod (subst '(297 . 1) (assoc 297 itm) itm))
        )
    )
    (princ)
)